home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume89 / comm / amigatcp.p1 < prev    next >
Internet Message Format  |  1989-04-27  |  7KB
  1. Path: xanth!nic.MR.NET!indri!unmvax!tut.cis.ohio-state.edu!bloom-beacon!apple!oliveb!sun!rishathra!page
  2. From: page%rishathra@Sun.COM (Bob Page)
  3. Newsgroups: comp.sources.amiga
  4. Subject: v89i100:  amigatcp - two additional files
  5. Message-ID: <101408@sun.Eng.Sun.COM>
  6. Date: 26 Apr 89 21:48:15 GMT
  7. Sender: news@sun.Eng.Sun.COM
  8. Lines: 185
  9. Approved: page@sun.com
  10.  
  11. Submitted-by: rminnich@super.org (Ronald G. Minnich)
  12. Posting-number: Volume 89, Issue 100
  13. Archive-name: comm/amigatcp.p1
  14.  
  15. These two files were missing from the original distribution.  You
  16. can't re-make the AmigaTCP package without them.
  17.  
  18. # This is a shell archive.
  19. # Remove anything above and including the cut line.
  20. # Then run the rest of the file through 'sh'.
  21. # Unpacked files will be owned by you and have default permissions.
  22. #----cut here-----cut here-----cut here-----cut here----#
  23. #!/bin/sh
  24. # shar: SHell ARchive
  25. # Run the following text through 'sh' to create:
  26. #    devstub.asm
  27. #    version.c
  28. # This is archive 1 of a 1-part kit.
  29. # This archive created: Wed Apr 26 14:43:23 1989
  30. echo "extracting devstub.asm"
  31. sed 's/^X//' << \SHAR_EOF > devstub.asm
  32. X;****************************************************************
  33. X;*                                                            *
  34. X;*                            Stub device driver.                     *
  35. X;*                                                            *
  36. X;*                    Copyright (C) 1986                      *
  37. X;*                     Louis A. Mamakos                       *
  38. X;*                     Software & Stuff                       *
  39. X;*                                                            *
  40. X;*  All rights reserverd.  The program represents propriatary   *
  41. X;*  information of value to the author, and my not be                 *
  42. X;*  reproduced or redistributed in any form include source,   *
  43. X;*  object code or any other representation without prior     *
  44. X;*  permission from the author.                                       *
  45. X;*                                                            *
  46. X;****************************************************************
  47. X 
  48. X 
  49. X;
  50. X;  Assembly language stub for device driver.
  51. X;
  52. X;     FAR     CODE
  53. X;     FAR     DATA
  54. X 
  55. X 
  56. X      CSECT   text
  57. X      XREF    _NetDevOpen,_DevClose,_DevBeginIO       ; external symbols
  58. X      XREF    _DevExpunge,_DevAbortIO         ;_geta4
  59. X      XREF    _nopens
  60. X 
  61. X      XDEF    _DSOpen,_DSClose,_DSAbortIO     ; defined symbols
  62. X      XDEF    _DSBeginIO,_DSExpunge
  63. X      XDEF    _Savea4
  64. X;REGS REG     D1-D7/A0-A6
  65. X 
  66. X;
  67. X;  set up C runtime environment.  This is the Aztec C version.
  68. X;
  69. XCENTRY        MACRO
  70. X      movem.l D2-D7/A2-A6,-(sp)       ;save registers
  71. X      move.l  a4loc,a4        ;get a4
  72. X;     jsr     _geta4
  73. X      ENDM
  74. X 
  75. XCRETURN       MACRO
  76. X      movem.l (sp)+,D2-D7/A2-A6       ;restore registers
  77. X      rts                     ;return to caller
  78. X      ENDM
  79. X 
  80. X;     MACRO   DEBUG
  81. X;     move.l  a6,-(sp)
  82. X;     move.l  _SysBase,a6
  83. X;     jsr     _LVODebug(a6)
  84. X;     move.l  (sp)+,a6
  85. X;     ENDM
  86. X 
  87. X 
  88. X;----------------------------------------------------------------------
  89. X;
  90. X; here begins the system interface commands.  When the user calls
  91. X; Opendevice/Closedevice/Removedevice, this eventually gets translated
  92. X; into a call to the following routines (Open/Close/Expunge).  Exec
  93. X; has already put our device pointer in A6 for us.  Exec has turned
  94. X; off task switching while in these routines (via Forbid/Permit), so
  95. X; we should not take too long in them.
  96. X;
  97. X;----------------------------------------------------------------------
  98. X 
  99. X      ; Open returns the device pointer in d0 if the open
  100. X      ; was successful.  If the open failed then null is returned.
  101. X      ; It might fail if we allocated memory on each open, or
  102. X      ; if only open application could have the device open
  103. X      ; at a time...
  104. X 
  105. X_DSOpen:      ; ( device:a6, unitnum: d0, iob:a1, flags:d1 )
  106. X      CENTRY
  107. X      move.l  a4loc,a4
  108. X      move.l  d1,-(sp)                ; push flags
  109. X      move.l  a1,-(sp)                ; push iob address
  110. X      move.l  d0,-(sp)                ; push unit number
  111. X      move.l  a6,-(sp)                ; device
  112. X      addq.l  #1,_nopens
  113. X      jsr     _NetDevOpen             ; DevOpen(device, iob, unit, flags)
  114. X      lea     16(sp),sp               ; trash paramters
  115. X      CRETURN
  116. X 
  117. X      ; There are two different things that might be returned from
  118. X      ; the Close routine.  If the device is no longer open and
  119. X      ; there is a delayed expunge then Close should return the
  120. X      ; segment list (as given to Init).  Otherwise close should
  121. X      ; return NULL.
  122. X 
  123. X_DSClose:     ; ( device:a6, iob:a1 )
  124. X      CENTRY
  125. X      move.l  a1,-(sp)                ; push iob
  126. X      move.l  a6,-(sp)                ; push device
  127. X      jsr     _DevClose               ; DevClose(device, iob)
  128. X      addq.l  #8,sp                   ; trash parameters
  129. X      CRETURN
  130. X 
  131. X 
  132. X      ; There are two different things that might be returned from
  133. X      ; the Expunge routine.  If the device is no longer open
  134. X      ; then Expunge should return the segment list (as given to
  135. X      ; Init).  Otherwise Expunge should set the delayed expunge
  136. X      ; flag and return NULL.
  137. X      ;
  138. X      ; One other important note: because Expunge is called from
  139. X      ; the memory allocator, it may NEVER Wait() or otherwise
  140. X      ; take long time to complete.
  141. X 
  142. X_DSExpunge:   ; ( device: a6 )
  143. X      CENTRY
  144. X      move.l  a6,-(sp)                ; push device pointer
  145. X      jsr     _DevExpunge             ; DevExpunge(dev)
  146. X      addq.l  #4,sp                   ; pop parameters
  147. X      CRETURN
  148. X 
  149. X 
  150. XNull:
  151. X      moveq.l #0,d0
  152. X      rts
  153. Xa4loc dc.l    0
  154. X_Savea4:
  155. X      move.l  a4,a4loc
  156. X      rts
  157. X;----------------------------------------------------------------------
  158. X;
  159. X; here begins the device specific commands
  160. X;
  161. X;----------------------------------------------------------------------
  162. X 
  163. X_DSBeginIO:   ; ( iob:a1, device:a6 )
  164. X      CENTRY
  165. X      move.l  a6,-(sp)                ; push device
  166. X      move.l  a1,-(sp)                ; push iob
  167. X      jsr     _DevBeginIO             ; DevBeginIO(iob, device)
  168. X      addq.l  #8,sp                   ; pop args
  169. X      CRETURN
  170. X 
  171. X;
  172. X_DSAbortIO:   ; ( iob:a1, device:a6 )
  173. XInvalid:
  174. X      CENTRY
  175. X      move.l  a6,-(sp)                ; push device
  176. X      move.l  a1,-(sp)                ; push iob
  177. X      jsr     _DevAbortIO             ; DevAbortIO(iob, device)
  178. X      addq.l  #8,sp                   ; pop args
  179. X      CRETURN
  180. X 
  181. X      END
  182. SHAR_EOF
  183. echo "extracting version.c"
  184. sed 's/^X//' << \SHAR_EOF > version.c
  185. X/* version control information */
  186. X 
  187. X/* the date of release by N3EUA from distribution central -- DO NOT CHANGE! */
  188. Xchar major_rev[] = "870227";
  189. X 
  190. X/* revision indicator for keeping track of local patches - change this one! */
  191. Xchar minor_rev[] = "5";
  192. SHAR_EOF
  193. echo "End of archive 1 (of 1)"
  194. # if you want to concatenate archives, remove anything after this line
  195. exit
  196.